home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr01
/
jock.zip
/
TOTDEM11.ZIP
/
DEMBX1.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-02-11
|
1KB
|
38 lines
Program DemoBoxOne;
{DEMBX1}
USES DOS,CRT, totFAST;
begin
Clrscr;
with Screen do
begin
Box(1,1,19,10,white,0);
WriteAt(2,2,white,'Style 0');
Box(21,1,39,10,white,1);
WriteAt(22,2,white,'Style 1');
Box(41,1,59,10,white,2);
WriteAt(42,2,white,'Style 2');
Box(61,1,80,10,white,3);
WriteAt(62,2,white,'Style 3');
Box(1,12,19,20,white,4);
WriteAt(2,13,white,'Style 4');
Box(21,12,39,20,white,5);
WriteAt(22,13,white,'Style 5');
Box(41,12,59,20,white,6);
WriteAt(42,13,white,'Style 6');
Box(61,12,80,20,white,127);
WriteAt(62,13,white,'Style 127');
WriteAt(1,22,white,'Style 1,3');
Horizline(13,80,22,white,1);
WriteAt(1,23,white,'Style 2,4');
Horizline(13,80,23,white,4);
WriteAt(1,24,white,'Style 14');
Horizline(13,80,24,white,14);
WriteAt(1,25,white,'Style 219');
Horizline(13,80,25,white,219);
repeat until keypressed;
gotoXY(1,25);
end;
end.